00100	;;BEGIN JOBDAT - JOB DATA AREA
00200	SUBTTL JOBDAT	31 AUG 67
00300	
00400	;THIS AREA PROVIDES STORAGE OF ITEMS OF INTEREST TO BOTH
00500	;THE MONITOR AND THE USER
00600	
00700	;MACRO TO DEFINE SYMBOLS FOR MONITOR USE ONLY
00800	;THESE MAY BE CHANGED TO SUIT MONITOR
00900	
01000	DEFINE M'(SYMBOL,VALUE,LENGTH)
01100	<SYMBOL←←VALUE
01200	LOC←←VALUE+LENGTH>
01300	
01400	;MACRO TO DEFINE SYMBOLS FOR USER USE
01500	;THESE CANNOT BE CHANGED WITHOUT INVALIDATING OLD SAVED FILES
01600	
01700	DEFINE U'(SYMBOL,VALUE,LENGTH)
01800	<SYMBOL←←VALUE
01900	LOC←←VALUE+LENGTH>
02000	
02100	;MACRO TO DEFINE PARAMETERS OF INTEREST TO MONITOR ONLY
02200	;THESE MAY BE CHANGED TO SUIT MONITOR
02300	;MUST ASSEMBLE WITH SYSPAR TAPE FIRST
     

00100	M JOBAC,0,20		;PLACE WHERE USER ACS ARE STORED ON UUO CALLS
00200				;IE RELATIVE 0-17 IN USER AREA
00300	M JOBDAC,LOC,17		;PLACE WHERE HARDWARE ACS(0-16) ARE STORED
00400				;WHEN JOB IS INACTIVE. THESE ARE EITHER THE
00500				;USERS AC IF JOB WAS STOPPED IN USER MODE
00600				;OR ARE THE EXEC IF STOPED IN EXEC MODE
00700				;0-16 ALSO STORED HERE ON CLK INTERRUPTS
00800	XP JOBDPG,JOBDAC+PROG	;AC PROG DUMPED HERE
00900	XP JOBD15,JOBDAC+15	;AC 15 DUMPED HERE
01000	XP JOBD16,JOBDAC+16	;AC 16 DUMPED HERE
01100	XP JOBD17,JOBDAC+17	;AC 17 DUMPED HERE
01200	U JOBUUO,40,1		;USER UUO TRAP LOC.(UUO STORED HERE)
01300	U JOB41,41,1		;USER UUO JSR LOCATION
01400	;42 UNUSED
01500	M JOBENB,43,1		;LH=PC CHNG,AR OVF ENABLE/DISABLE APR BITS
01600				;RH=APR CONSO FLAGS FOR USER APR TRAPPING
01700				;SET BY CALL [SIXBIT /APRENB/]
01800	U JOBREL,44,1		;LH=0,RH=HIGHEST REL. ADR. IN USER AREA
01900	M JOBTM1,LOC,1		; SOME TEMP CELLS TOO
02000	M JOBTM2,LOC,1
02100	M JOBTM3,LOC,1
02200	M JOBTM4,LOC,1
02300	M JOBTM5,LOC,1
02400	M JOBPDL,LOC,1		; PUSHDOWN LIST FOR GETPDL AND GIVPDL TO USE
02500	LOC←←72
02600	XP JOBPLN,LOC-JOBPDL
02700	XP JOBPRT,LOC		;FIRST LOC PROTECTED BY BEING COPIED INTO MONITOR
02800	XP JOBPR1,JOBPRT+1	;FIRST LOC+1
02900	M JOBHCU,LOC,1		;HIGHEST USER IO CHANNEL IN USE
03000				;ONLY JOBJDA...JOBJDA+C(JOBHCU) ARE COPIED INTO
03100				;MONITOR WHEN JOB IS RUN. 0 MEANS NONE OR
03200				;CHAN. 0 IN USE, -1 MEANS SAVEGET HAS ACTIVE IO
     

00100	M JOBPC,LOC,1		;JOB PC WHEN JOB INACTIVE
00200	U JOBDDT,74,1		;LH UNUSED,RH=STARTING ADDRESS OF USER DDT
00300	XP JOBSAV,JOBDDT-1	;FIRST LOC.-1 WRITTEN BY SAVE COMMAND
00400	M JOBJDA,LOC,20		;JOB DEVICE ASSIGNMENT TABLE
00500				;LH=UUOS DONE SO FAR,RH=ADR. OF DEVICE DATA BLOCK IN MONITOR
00600	XP JOBJMH,JOBHCU-JOBJDA	;JOBHCU-JOBJDA
00700				;USED BY ANYACT ROUT. IN CORE1
00800	XP JOBPFI,JOBJDA+17	;HIGHEST LOC. IN JOB DATA AREA PROTECTED FROM IO
00900	XP MJOBCK,JOBPFI-JOBDAC	;AREA CHECKSUMMED DURING SWAPPING
     

00100	M JOBRL2,115,1
00200	U JOBSYM,116,1	;POINTER TO LOADER AND DDT SYMBOL TABLE POINTER
00300	U JOBUSY,117,1	;POINTER TO UNDEFINED SYMBOL TABLE
00400			;SET BY LOADER, NOT YET USED BY DDT
00500	U JOBSA,120,1	;LH=FIRST LOC NOT LOADED BY RELOCATING LOADER
00600			;RH=STARTING ADDRESS OF USER PROGRAM
00700	U JOBFF,121,1	;FIRST FREE LOCATION IN USER AREA
00800			;USED BY MONITOR TO ASSIGN I/O BUFFERS IN TOP
00900			;OF USER AREA
01000	U JOBS41,122,1	;C(JOB41) SAVED HERE ON SAVE COMMAND
01100			;RESTORE FROM HERE ON GET
01200	M JOBEXM,LOC,1	;LAST LOC EXAMINED OR DEPOSITED USING 
01300			;D OR E COMMANDS
01400	U JOBREN,124,1	;REENTER ADDRESS FOR REENTER COMMAND
01500	U JOBAPR,125,1	;PLACE TO TRAP TO IN USER AREA ON APR TRAP
01600			;ENABLED BY APRENB UUO
01700	U JOBCNI,126,1	;APR IS CONIED INTO C(JOBCNI) ON APR TRAP
01800	U JOBTPC,127,1	;PC IS STORED HERE ON USER APR TRAP
01900	U JOBOPC,130,1	;OLD PC IS STORED HERE ON START,DDT,REENTER,
02000			;STARTC COMMANDS
02100	U JOBCHN,131,1	;LH=FIRST LOC AFTER FIRST FORTRAN 4 LOADED PROGRAM
02200			;RH=FIRST LOC AFTER FIRST FORTRAN 4 BLOCK DATA
02300			;TO BE USED FOR JOB CHAINING
02400	M JOBFDV,LOC,1	;DEV. DATA BLOCK ADR. FOR FINISH COMMAND
02500	U JOBCOR,133,1	;SIZE OF CORE FOR JOB ON RUN,SAVE,GET COM.
02600	M HINAME,134,1	;NAME OF UPPER SEGMENT OVER SAVE-GET
02700	M HILOC,135,1	;LOC OF UPPER SEGMENT IN DUMP FILE OVER SAVE-GET
02800	;134-137 USED BY LOADER FOR BLT TO MOVE PROGRAM DOWN(CAN BE REMOVED)
02900	XP JOBDA,140	;FIRST LOC NOT USED BY JOB DATA AREA
03000	
03100	;;;	BEND